home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 4 (Reseller)
/
Apple Ref. & Pres. Lib.v4.0.iso
/
6-Apple⁄DEC Alliance
/
Solutions & Networking Guide
/
Macintosh Networking Guide
/
Macintosh Networking Guide
/
card_19139.txt
< prev
next >
Wrap
Text File
|
1990-04-17
|
20KB
|
796 lines
-- card: 19139 from stack: in
-- bmap block id: 29421
-- flags: 0000
-- background id: 18894
-- name: Hallway1
----- HyperTalk script -----
on openCard
global env,sol,floor,currentFloor
--∆ Clear room signs by putting asteriscs in each
repeat with i = 1 to 4
put "*" into cd fld i
end repeat
repeat with i = 3 to 9
put "*" into cd fld i of cd "Hallway2"
end repeat
--∆ Put environment name in hallway sign,
--∆ convert "Mac" to "Macintosh" (legal requirement) if needed
if env = "Mac" or env = empty then
put "Macintosh" into cd fld "envName"
put "Macintosh" into cd fld "envName" of cd "Hallway2"
else
put env into cd fld "envName"
put env into cd fld "envName" of cd "Hallway2"
end if
if floor is 3 then
put "Applications" into cd fld "Floor"
put "Applications" into cd fld "Floor" of cd "Hallway2"
put "3 Applications" into currentFloor
put cd fld (env & "sol") of card "Limit" into solutions
put the number of lines of solutions into number
else
if floor is 2 then
put "Network Services" into sol
put "Network Services" into cd fld "Floor"
put "2 Network Services" into currentFloor
put "Network Services" into cd fld "Floor" of cd "Hallway2"
put cd fld env of card "LimitNet" into solutions
end if
end if
--∆ show more button for additional solutions
show cd btn "Hallway2"
--∆ Force door signs if on Foundation level (temporary)
--∆ or use solutions found for Applications and Network Services levels
if floor is 1 then
put "1 Hardware" into currentFloor
put "Hardware" into sol
put "Hardware" into cd fld "Floor"
put "Hardware" into cd fld "Floor" of cd "Hallway2"
put "Macintosh II Family" into cd fld "1"
put "Macintosh SE/30" into cd fld "2"
put "Macintosh Portable" into cd fld "3"
put "Macintosh SE" into cd fld "4"
hide cd btn "Hallway2"
else
repeat with i = 1 to 4
if line i of solutions is "Network Services" or line i of solutions is empty then exit repeat
put line i of solutions into cd fld i
end repeat
--∆ Set up second hall if needed
repeat with i = 5 to 9
if line i of solutions is "Network Services" or line i of solutions is empty then
--∆ Hide second hall button if no solutions are there
if i is 5 then hide cd btn "Hallway2"
exit repeat
else
put line i of solutions into cd fld (i -2) of cd "Hallway2"
end if
end repeat
end if
unlock screen with dissolve
end openCard
on closeCard
repeat with i = 1 to the number of cd flds
put empty into cd fld i
end repeat
end closeCard
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=33 right=51 bottom=117
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 10
-- style flags: 10240
-- line height: 13
-- part name: 1
----- HyperTalk script -----
on mouseUp
global env,sol,service,foundation,theRoom
global lastRoom,hall,floor,tidyUpNow
set cursor to busy
set lockscreen to true
--∆ Get the name they click from the door sign
get me
put me into choice
--∆ Test for an empty room
if choice is "*" then
if env is not "Mac" then
answer "No" && env && "solutions are installed here yet."
else
answer "No Macintosh solutions are installed here yet."
end if
exit mouseUp
end if
--∆ Track the solution, network service, or network foundation chosen
--∆ and 1st part of appropriate room name
if floor is 3 then
put choice into sol
put "" into level
else
if floor is 2 then
put choice into service
put "Network " into level
else
if floor is 1 then
put choice into foundation
put "Hardware " into level
end if
end if
end if
--∆ Determine 2nd part of room name for the correct environment room
--∆ There are three types of rooms at each of three levels: The levels
--∆ are; Application, Network Services, and Network Foundation. The
--∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
--∆ The hardware level uses only one type of room.
if env is "PC" then
put "RoomMicro" into room
else
if env is "Mac" then
put "RoomMac" into room
else
put "Room" into room
end if
end if
--∆ Track the hall entered from
put the short name of this card into hall
--∆ Check for change of room
put env && sol into newRoom
if lastRoom <> newRoom then put true into tidyUpNow
--∆ Now concatenate level and environment data and enter that room.
if floor is not 1 then
put (level & room) into theRoom
else
put "hardware room" into theRoom
end if
go to cd theRoom
unlock screen with dissolve
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put me into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=105 top=62 right=79 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 2
----- HyperTalk script -----
on mouseUp
global env,sol,service,foundation,theRoom
global hall,floor,lastRoom,tidyUpNow
set cursor to busy
set lockscreen to true
--∆ Get the name they click from the door sign
get me
put me into choice
--∆ Test for an empty room
if choice is "*" then
if env is not "Mac" then
answer "No" && env && "solutions are installed here yet."
else
put "Macintosh" into nameChange
answer "No" && nameChange && "solutions are installed here yet."
end if
exit mouseUp
end if
--∆ Track the solution, network service, or network foundation chosen
--∆ and 1st part of appropriate room name
if floor is 3 then
put choice into sol
put "" into level
else
if floor is 2 then
put choice into service
put "Network " into level
else
if floor is 1 then
put choice into foundation
put "Hardware " into level
end if
end if
end if
--∆ Determine 2nd part of room name for the correct environment room
--∆ There are three types of rooms at each of three levels: The levels
--∆ are; Application, Network Services, and Network Foundation. The
--∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
--∆ The hardware level uses only one type of room.
if env is "PC" then
put "RoomMicro" into room
else
if env is "Mac" then
put "RoomMac" into room
else
put "Room" into room
end if
end if
--∆ Track the hall entered from
put the short name of this card into hall
--∆ Check for change of room
put env && sol into newRoom
if lastRoom <> newRoom then put true into tidyUpNow
--∆ Now concatenate level and environment data and enter that room.
if floor is not 1 then
put (level & room) into theRoom
else
put "hardware room" into theRoom
end if
go to cd theRoom
unlock screen with dissolve
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put me into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=201 top=87 right=102 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 3
----- HyperTalk script -----
on mouseUp
global env,sol,service,foundation,theRoom
global hall,floor,lastRoom,tidyUpNow
set cursor to busy
set lockscreen to true
--∆ Get the name they click from the door sign
get me
put me into choice
--∆ Test for an empty room
if choice is "*" then
if env is not "Mac" then
answer "No" && env && "solutions are installed here yet."
else
put "Macintosh" into nameChange
answer "No" && nameChange && "solutions are installed here yet."
end if
exit mouseUp
end if
--∆ Track the solution, network service, or network foundation chosen
--∆ and 1st part of appropriate room name
if floor is 3 then
put choice into sol
put "" into level
else
if floor is 2 then
put choice into service
put "Network " into level
else
if floor is 1 then
put choice into foundation
put "Hardware " into level
end if
end if
end if
--∆ Determine 2nd part of room name for the correct environment room
--∆ There are three types of rooms at each of three levels: The levels
--∆ are; Application, Network Services, and Network Foundation. The
--∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
--∆ The hardware level uses only one type of room.
if env is "PC" then
put "RoomMicro" into room
else
if env is "Mac" then
put "RoomMac" into room
else
put "Room" into room
end if
end if
--∆ Track the hall entered from
put the short name of this card into hall
--∆ Check for change of room
put env && sol into newRoom
if lastRoom <> newRoom then put true into tidyUpNow
--∆ Now concatenate level and environment data and enter that room.
if floor is not 1 then
put (level & room) into theRoom
else
put "hardware room" into theRoom
end if
go to cd theRoom
unlock screen with dissolve
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put me into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=280 top=103 right=117 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 10240
-- line height: 12
-- part name: 4
----- HyperTalk script -----
on mouseUp
global env,sol,service,foundation,theRoom
global hall,floor,lastRoom,tidyUpNow
set cursor to busy
set lockscreen to true
--∆ Get the name they click from the door sign
get me
put me into choice
--∆ Test for an empty room
if choice is "*" then
if env is not "Mac" then
answer "No" && env && "solutions are installed here yet."
else
put "Macintosh" into nameChange
answer "No" && nameChange && "solutions are installed here yet."
end if
exit mouseUp
end if
--∆ Track the solution, network service, or network foundation chosen
--∆ and 1st part of appropriate room name
if floor is 3 then
put choice into sol
put "" into level
else
if floor is 2 then
put choice into service
put "Network " into level
else
if floor is 1 then
put choice into foundation
put "Hardware " into level
end if
end if
end if
--∆ Determine 2nd part of room name for the correct environment room
--∆ There are three types of rooms at each of three levels: The levels
--∆ are; Application, Network Services, and Network Foundation. The
--∆ three types of rooms are; Mac to PC, Mac to Mac, and Mac to Host.
--∆ The hardware level uses only one type of room.
if env is "PC" then
put "RoomMicro" into room
else
if env is "Mac" then
put "RoomMac" into room
else
put "Room" into room
end if
end if
--∆ Track the hall entered from
put the short name of this card into hall
--∆ Check for change of room
put env && sol into newRoom
if lastRoom <> newRoom then put true into tidyUpNow
--∆ Now concatenate level and environment data and enter that room.
if floor is not 1 then
put (level & room) into theRoom
else
put "hardware room" into theRoom
end if
go to cd theRoom
unlock screen with dissolve
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put me into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=442 top=104 right=251 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global env,floor,lastfloor,currentFloor
--∆ Capture env name from hall sign
put cd field "envName" into envTemp
--∆ Go inside elevator and set up view
set lockscreen to true
go to cd "ElevatorOpenHall"
--∆ Show name of chosen env
put envTemp into cd field "EnvName"
--∆ Set floor indicators
hide cd button "destinationHiliter"
hide cd button "3 ApplicationsHiliter"
hide cd button "2 Network ServicesHiliter"
hide cd button "1 HardwareHiliter"
hide cd button "0 LobbyHiliter"
show cd button (currentFloor & "Hiliter")
--∆ Set lights over door
set the hilite of cd btn "3 Applications" to false
set the hilite of cd btn "2 Network Services" to false
set the hilite of cd btn "1 Hardware" to false
set the hilite of cd btn "0 Lobby" to false
set the hilite of cd button currentFloor to true
--∆ Put level name over door
put currentFloor into cd fld "currentFloor"
push card
unlock screen with barn door open
end mouseUp
on mouseEnter
changeCurs 6069
put "Elevator Button" & return & "click to enter elevator" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=342 top=2 right=30 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: envName
-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=336 top=28 right=54 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 8192
-- line height: 24
-- part name: Floor
-- part 5 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=333 top=141 right=162 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 9661 / 9661
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hallway2
----- HyperTalk script -----
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
global env, sol, hall
set cursor to busy
set lockscreen to true
go to card "Hallway2"
put "Around Corner" into cd fld "HallName"
unlock screen with dissolve
end mouseUp
on mouseEnter
put "Additional Alternatives" & return & "click for more choices" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=278 top=124 right=236 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to busy
send mouseUp to cd fld "4"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put cd fld 4 into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=217 top=111 right=260 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to busy
send mouseUp to cd fld "3"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put cd fld 3 into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=128 top=91 right=291 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to busy
send mouseUp to cd fld "2"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put cd fld 2 into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=16 top=67 right=304 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set cursor to busy
send mouseUp to cd fld "1"
end mouseUp
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseEnter
put cd fld 1 into roomsName
if roomsName is not "*" then
put roomsName & " Door" & return & "click once to enter" into fld "Tell"
else
put "No solutions are" & return & "installed here yet" into fld "Tell"
end if
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part contents for background part 9
----- text -----
List running on ENV CPU
-------------------------
• Eeny
• Meenee
• Minee
• Mo
(it is dependant on what item is chosen
on the Mac list, should work the other way as well. --JON)
-- part contents for background part 41
----- text -----
Macintosh Info Management Room
-- part contents for background part 68
----- text -----
Main Hallway
-- part contents for background part 59
----- text -----
Mail Service Door
click once to enter